/* symbol2string.asm
 *
 * 
 */

SYMBOL2STRING:
  PUSH(FP);
  MOV(FP,SP);

  MOV(R0, FPARG(2)); 				//R0 = sob symbol
  CMP(IND(R0), IMM(T_SYMBOL));		// input check
  JUMP_NE(TYPE_ERROR);
  MOV(R0, INDD(R0, 1));				// R0 = symbol[1] = pointer to symbol's bucket
  MOV(R0, INDD(R0, 0));				// R0 = bucket[0] = pointer to symbol string's sob_object

  POP(FP);
  RETURN;

